home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / mask12.arc / STATUS.INC < prev   
Text File  |  1987-12-20  |  300b  |  12 lines
  1. SUB STATLINE(statmssg$,stat%) STATIC
  2.     SHARED slcolor%, statrow%
  3.     IF statmssg$ = "" THEN
  4.         CALL XqPrint(SPACE$(59),statrow%,1,slcolor%,0)
  5.         stat% = 0 : EXIT SUB
  6.     END IF
  7.     statcol% = (58-LEN(statmssg$))/2
  8.     CALL XqPrint(statmssg$,statrow%,statcol%,slcolor%,0)
  9.     SOUND 250,1
  10.     stat% = -1
  11. END SUB
  12.